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