Select Code to Download

#!/usr/bin/perl

...
my @name = map { $namematch->() } $file;
print "not defined case, \@name = @name\n";
}

defined case, @name = foo
not defined case, @name = foobar