use strict;
use warnings;

my $file = 'foo.txt';
open my $fh, $file or die "$file: $!";

my @array;

while (<$fh>) {
	push @array, $1 if /(\d+)$/;
}
close $fh;

print "@array\n";