my @all_subs = (\&sub_1,\&sub_2);
$all_subs[1]->();