#!/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";
}