use strict;
# context test
my @array = qw (one two three);


my $scalar = returnfunc();
#my ($scalar) = @array;
my $otherscalar = ("one","two","three");




print "scalar = $scalar\n";
print "otherscalar = $otherscalar\n";

sub returnfunc
{
	return @array;
}