use warnings;
use strict;

{
my $temp2=testfunc();
my @arr=@$temp2;
print @arr, $temp2," \n" ; 
#want @arr to print the array elements & $temp2 to print ref value
}

sub testfunc {
 my @temps= (1,2,3);
 return \@temps;
}

##</code><code>##

use warnings;
use strict;

{
my $temp2=testfunc();
my @arr=@$temp2;
print @arr, $temp2," \n" ; 
#want @arr to print the array elements & $temp2 to print ref value
}

sub testfunc {
 my $temps= [1,2,3];
 return $temps;
}