$hash->{subs}->[0] = sub {
    $var1 = "a";
    $var2 = "b";
}#sub 0
$hash->{subs}->[1] = sub {
    $var1 = "c";
    $var2 = "d";
}#sub 1