Select Code to Download

my $key = $columns[0];
$hash{$key} = 1;

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try