print $_, $/, map { "\t@$_$/"} @{$clean_data{$_}} for sort keys %clean_data;