foreach my $key (sort keys %data) {
	print $data{$key} . $/;
}

##</code><code>##

print join('|', @data{sort keys %data});