001	use strict;
002	my @array;
003	open (INFILE, "<filename") or die "could not open file";
004	foreach (<INFILE>) {
005		chomp;
006		push @array, [m/(\d+)/, $_];
007	}
008	close INFILE;