C:\temp>cat mkaref.pl
#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

sub mkaref { [@_] }

print Dumper mkaref qw<foo bar baz>;

__END__

C:\temp>mkaref.pl
$VAR1 = [
          'foo',
          'bar',
          'baz'
        ];