open FIN, $ARGV[0] or die $!;
my @lines = grep{$_ !~ /^#/}<FIN>;
close FIN or warn $!;