Help for this page

Select Code to Download

Select or download this
```
my ($a1) = (55,77,99);
print $a1."\n";
```

Select or download this

my %a2 = ( x=>4, y=> scalar (5,7,9) );
print $a2{'y'} . "\n";