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

sub format_output {
  my ($var1, $var2, @array) = @_;

  # do_some_stff
}

format_address(":", 0, (split(//, $scalar))[8 .. 13]);

[download]
--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

In Section Seekers of Perl Wisdom