#!/usr/bin/perl -w
use strict;

use Data::Dumper;
my $x = test('a', 'b');
my @y = test('a', 'b');
print Dumper( $x, \@y );

sub test {}

##</code><code>##

$VAR1 = undef;
$VAR2 = [
          'a',
          'b'
        ];