Select Code to Download

use strict;
use warnings;
...
    my $func = $Movement{$key};
    $foo->$func;
}

foreach my $key (keys %Movement) {
    $foo->$Movement{$key};
}