while (!bucket_is_full()) {
    my $dirt = dig_a_scoop();
    toss_in_bucket($dirt);
}
move_to($dump);
empty_bucket();