my $hash_ref = record(100,1000,10);
my %record = %$hash_ref; # De-reference/copy the hash.
print $record{max};