http://www.perlmonks.org?node_id=555271


in reply to Help with scalar values and array as arguments to function

This is one of many ways to do it:
sub format_output { my $var1 = shift; my $var2 = shift; my @arrayref = @_; do_some_stuff; } my $scalar = 'abcdefghijklmnopq'; my @array = (); my @tmparray = split('',$scalar); @array = splice(@tmparray, 8, 6); &format_address(":", 0, @array);
-imran