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;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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