unshift @{$catch}, undef, $sub;