my $match   = shift @ARGV;
my @matched = grep /^$match$/o, <>;