Help for this page

Select Code to Download

Select or download this

my %hash;
@hash{ qw/ one two three / } = ( 1 .. 3 );
foreach ( qw/ one one three two one / ) {
    print $hash{$_},"\n";
}

Select or download this

foreach ( qw/ one one three two one / ) {
    print ${@{ qw/ one two three / } = (1..3)}{$_},"\n";
}