my $line = '20' . sprintf("%05d",$key) . '#' . $key . '#' . join(',', map { join('#', @{$_}) } @{$data->{$key}});