use List::Part;
($letters, $numbers)=part { /\d/ } qw(a b c 1 2 3);