my $length = shift @info; # now do something with $length # now do something with the remaining array of characters