my %hash = ('a'=>'test'); print \$hash{'a'}."\n"; my @arr = delete $hash{'a'}; print \$arr[0]."\n";