Help for this page

Select Code to Download

Select or download this

my %hash = (
            1    => [1, One],
...
   my ($int, $alpha) = split(/::/, $_);
   print "Integer is: $int -- Alpha is: $alpha\n";
}

Select or download this

Integer is: 12 -- Alpha is: Twelve
Integer is: 1 -- Alpha is: One
...
Integer is: 4 -- Alpha is: Four
Integer is: 5 -- Alpha is: Five
Integer is: 6 -- Alpha is: Six