#! /usr/bin/perl

use strict;
use warnings;

my $var1 = 'AB';# oder eine 02
my $var2 = 'AA'; # oder 01...

my $aelter = $var1 gt $var2 ? $var2 : $var1;

print $aelter," ist älter\n";