Select Code to Download

while($line = <$FH>) {

...
    $_ = Time::Piece->strptime($fields[39],'%m/%d/%Y %H:%M')->strftime
+('%Y-%m-%d %H:%M');
    push @data, \@fields;
}

while($line = <$FH>) {

...
    $_ = Time::Piece->strptime($_,'%m/%d/%Y %H:%M')->strftime('%Y-%m-%
+d %H:%M') for @fields[38,39];
    push @data, \@fields;
}