sub foo {
    my $arg = shift;
    foreach my $data ( @data ) {
        $bar[ $data ] += $arg;
    }
}