and you could replace that huge series of ifs with a @array=qw/jan feb mar.../; $foo=~/(\d+)/;$array[$1]; Basically.