my $year = 2002;
$year =substr($year, -2);
print $year;