#!/usr/local/bin/perl -w

use strict;

my @database = <DATA>;

my @sorted=sort{my $one=substr($a,rindex($a,'|'));
                my $two=substr($b,rindex($b,'|'));
                ($one <=> $two) } @database;


print @sorted;

__DATA__
a|b|c|10
d|e|f|100
g|h|i|2