...
 for( values %HoA ) { $_ = $_->[0] if @$_ == 1 }
 ...