Perlで引数に配列と文字列を渡したい場合

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

my @list = (1,2,3,4);
my $str = 'unko';

func1(  @list, $str);
func2( \@list, $str);

sub func1 {
  my @list = @_;
  my $str = pop( @list );
  print @list, "\n", $str, "\n";
  return;
}

sub func2 {
  my ($list, $str) = @_;
  print @$list, "\n", $str, "\n";
}