Select Code to Download

#!/usr/bin/perl
use strict;
...
a: @* @* @*
   $a1, $a2, $a3
.

---+++---
a: one two three
a: four five six
a: seven empty empty
---------