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