Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $data (@data) {
    print $data, " => ", $translate{$data}, "\n";
}

C:\Code>perl translate.pl
1 => 567898
2 => 543267
3 => 234565
4 => 987654