$_ =~ m/(\d+)/; #set $1 to the first group of digits push @array, [$1, $_];