in reply to Unique Variable names...

You could get the "names" like so ...
sub get_signal { ... @values=values(%hash); @names=keys(%hash); return (\@values, \@names ); } ... my ( $arrRef_next_columns, $arrRef_names ) = get_signal;