I suggest you check this bit of code with regard to substr

my $dstdate = substr($field[13], 0, 3);
if ( $arraysize > 15 and $dstdate eq '0313') {
[download]

$dstdate will be 3 characters in length (at most) so it can never equal 0313