while (my ($key, $func) = each %Movement) {
    $foo->$func;
}