for ( sort keys %data ) {
    print "$data{$_},$_\n" if ( $data{$_} =~ /,.*?,/ );
}