Help for this page

Select Code to Download


  1. or download this
    print (split /,/,$_)[1] for grep /^1006/, @array; #UNTESTED
  2. or download this
    use strict;
my %hash=qw(1001 choochoo 1002 candycane 1003 sockpuppet);
print $hash{'1003'};
__END__
sockpuppet