my @match = do {
    open my $fh, '<', $file or die "$!";
    grep /^$ARGV[0]\|/, <$fh>;
};