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

my @list = (5..10);
print "list = @list\n";
foo(@list);
exit;

sub foo {
    my $media_list = join ':', @_;
    print "media_list = $media_list\n";
}

##</code><code>##

list = 5 6 7 8 9 10
media_list = 5:6:7:8:9:10