$_ =~ m/(\d+)/;
	my @subarray = ($1, $_);
	push @array, \@subarray;