Передать массив в функцию

...
@playList = create_play_list(`/bin/ls -1 /home/radio/Music/*.mp3`);
...
sub create_play_list{
    my ($music) = @_;
        my $tag;
        my $num;
 
    $num = scalar (@music);
 
    do{
        $play=int(rand($num));
                chomp $music[$play];
            $tag = get_mp3tag($music[$play]) or die "No TAG info";
    }while($play == $oldPlay || $oldArt == $tag->{ARTIST});
 
    return $music[$play];
}

my $oldArt  ='';
my $oldPlay ='';
 
sub create_play_list {
    my ($music) = @_;
        my $tag;
        my $num;
        my $play;
 
    $num = scalar (@$music);# как вариант $music->@* вместо @$music
 
    do{
        $play=int(rand($num));
        chomp $music->[$play];# ->
        $tag = get_mp3tag($music->[$play]) or die "No TAG info";
 
    }while($play eq $oldPlay || $oldArt eq $tag->{ARTIST});
    $oldPlay = $play;
    $oldArt = $tag->{ARTIST};
 
        return $music->[$play];# Возвращает скаляр
}
 
my $playList = create_play_list([`/bin/ls -1 /home/radio/Music/*.mp3`]);
 
print $playList;

#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
use MP3::Info qw/:all/;
binmode(STDOUT, ":utf8");
use_mp3_utf8(1);
 
my $dirname = "/home/andrew/Музыка/other";
my ($file, $mp3, $title, $artist, $genre, $min, $sec);
 
print "Title               Artist              Genre           Time\n", ("-" x 70), "\n";
 
format STDOUT =
@<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<@<<<<<<
$title,             $artist,            $genre,        sprintf(" %02d:%02d", $min, $sec)
.
 
opendir(my $dh, $dirname) or die "Can't open directory: $!\n";
while ( $file = readdir($dh) ) {
    next unless $file =~ /mp3$/;
    $file = "$dirname/$file";
    $mp3 = MP3::Info->new($file) or die "Can't create mp3 object: $!\n";
    $title = $mp3->{TITLE} || "unknown";
    $artist = $mp3->{ARTIST} || "unknown";
    $genre = $mp3->{GENRE} || "unknown";
    $min = $mp3->{MM};
    $sec = $mp3->{SS};
    write;
}
closedir($dh);