#!/usr/local/bin/perl
while($i == 1){
@z;
print $z;
$i++;
}