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;
[download]