use File::Basename;

my $found;
while( <DATA> ) {
  chomp;
  my $bn = basename($_);
  next unless $bn =~ m/^\d+$/;
  $found = $bn;
}
print $found;

__DATA__
/path/to/one/library
/path/to/another
/path/to/another/01
/path/to/another/s
/path/to/another/02
/path/to/another/w1
/path/to/another/03
/path/to/another/1e
/path/to/another/2014

##</code><code>##

# Untested...
use File::Basename;
use File::ReadBackwards;

tie *FH, 'ReadBackwards', 'filename' or die $!;

my $found;
while( <FH> ) {
  chomp;
  next unless basename($_) =~ m/^(\d+)$/;
  $found = $1;
  last;
}

die "No matches found.\n" unless defined $found;
print $found;

##</code><code>##

use File::Basename;

my @files = reverse <DATA>;
my $found;
foreach ( @files ) {
  chomp;
  next unless basename($_) =~ m/^(\d+)$/;
  $found = $1;
  last;
}

die "No matches found.\n" unless defined $found;
print $found;

__DATA__
/path/to/one/library
/path/to/another
/path/to/another/01
/path/to/another/s
/path/to/another/02
/path/to/another/w1
/path/to/another/03
/path/to/another/1e
/path/to/another/2014

##</code><code>##

foreach ( reverse <DATA> ) {
  ...