how can i import text file using PERL script?

Hi all

i try to import huge text file (~5 million lines). I try with this script

aaa = perl('importFile.pl',fileName);

where "importFile.pl" is

use strict;
use warnings;

    while (my $row = <>) {
      chomp $row;
      print "$row\n";
    }

but nothing happens!. what is my mistake??? Or can you suggest similar (and fast) solution?