print "Enter file name:\n";
chomp(my $file = <STDIN>);
open(DATA,$file);