use Data::Dumper;
{
    my @arra = (10,20);
&doublevalue(*arra); 
}
sub doublevalue {
    local *a = shift ;
    print Dumper @a;
}