#! /bin/perl
        use strict;
        sub sample
        {
                my @arr=(1,2,3,4);
                return @arr;
        }
        my ($a,$b,$c,$d) = &sample;
        print "$a\n$b\n$c\n$d\n";