for my $value ( @values ) {
    my @array = frobinate($value);
    foreach my $bit (@array) {
        drill($bit);
    }
}