was du im detail mache willst tut nichts dazu.
geh einfach mit dem iterator durch den array und fang immer 2 zeilen ab
die du unterschiedlich ausgibst.

ich interpretier mal dein angabe als "ohne wert 0" also @array[1..$#array] arrays können von print auch komplett ausgegeben werden, vieleicht vorher casten a la @{$array[n]}