use strict;
use warnings;


my $arg1 = "abc";
my @arg2 = (1, 2, 3, 4);

show_args($arg1, \@arg2);

sub show_args {
    my $arg1 = shift;
    my $arg2 = shift;

    my @lines = @{$arg2};
    print @lines;
}