You can also do this:

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

However, my first answer works well with a join():

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

Originally posted as a Categorized Answer.