my @filedata = <IFILE_HANDLER>;
my $head = shift(@filedata);
my $line

foreach $line(@filedata);