use Data::Dumper;
sub Create_arrayref{
 [@_];
};

sub Create_hashref{
    {@_};
};

my $hash_ref=&Create_hashref(1,2,3,4,5,6,7,8,9,'ree');

print Dumper $hash_ref;

my $array_ref=&Create_arrayref(1,2,3,4,5,6,7,8,9,'ree');

print Dumper $array_ref;