my $num = shift @array;