#!/usr/bin/perl
#
my $a = "abc";
my $b = "123";
my @a = qw(a b c);
my @b = qw(1 2 3);

subroutine($a,\@a,$b,\@b);

sub subroutine {
   local ($sa,*aa,$sb,*ab) = (@_);

   print "$sa\n$sb\n";
   print "@aa\n@ab\n";
}