#! /usr/bin/perl

my $file = 'input';
open my $fh, '<', $file or die "cant open : $!";
@data=<$fh>;
while (my $line = <>) {
    if ($line =~ /^(.*) (\d+)$/) {
            push @data, $1;
     }
}

for my $d (@data) {
       print "$d\n";
}

close $fh;