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