Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
for my $p (1..3) {
    print @{$a[$p]}[1..7], "\n";
}

Select or download this
```
OUTPUT:
1111111
2222222
3333333
```