#!/usr/bin/env perl -l

use strict;
use warnings;
no warnings 'uninitialized';

my @out_records;
my $re = qr{ ^ ( .* ) \s ( \d+ ) $ }x;

/$re/ and $out_records[$2 - 1] = $1 while <DATA>;
print for @out_records;

__DATA__
Line 5 5
Line 1 1
Line 3 3