- or download this
use strict;
use warnings;
...
print Dumper \@foo;
print "nok" if $foo[7] ne '$';
- or download this
@view
|- 0: alias $foo[1]
...
|- 3: alias $foo[6]
|- 4: 'G'
\- 5: 'C'
- or download this
@view
|- 0: alias $foo[1]
...
|- 3: alias $foo[6]
|- 4: alias $foo[7]
\- 5: alias $foo[8]