Select Code to Download

my @the_files = ('apple', 'pear', 'food');
my %image_hash = ('a'=>'z', 'o'=>'u', );
...
    print "move $file, $newFile or die 'Bummer!' \n"; 
}

move apple, zpple or die 'Bummer!' 
move pear, pezr or die 'Bummer!' 
move food, fuud or die 'Bummer!'