1: 2: 3: 4: 5: 6: 7: 8: 9:
#! /usr/local/bin/perl usar estrito; usar avisos; meu $num = o deslocamento ou morrem o “uso: $0 \ n”; para meu $i (1.$num) { meu @arr; empurrar o @arr, “$_; 123; 456; 789” para (1.$i); cópia “$i|”, juntar-se (“~”, @arr),” \ n "; }