Help for this page
#!/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