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

sub retarray {
   my $param = shift;
   my @array=(1,2,3,4,5,56);
   return @array;
}
my $param = 2;
my $val = (retarray($param))[3];
print "val is $val\n";