print $name{$search}[0], "\n";

##</code><code>##

my @array = @{$name{$search}};