print "Please enter id file\n";
my $file = <STDIN>;
open (my $handle, '<',$file);
chomp (my @lines = <$handle>);
close $handle;