my ($line,$string) = unpack( 'Na*',$hash{$key} );