my $z = sequence(3,3); print $z;