#!/usr/bin/perl
use warnings;
use strict;

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 {
   my ($sa,$aa,$sb,$ab) = (@_);

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