#!/usr/bin/perl
use warnings;
use strict;

my @data;
while (my $line = <>) {
    if ($line =~ /^(.*) (\d+)$/) {
        push @data, $1;
    }
}

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