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

my @gaga = ("paras", "kansas");

my ($x, $y) = test(@gaga);	

print "$x\n$y\n";