for my $date ( $date1, $date2 ) {
    my @fields = ( split( /:/, $date );
    my $frac = pop @fields;
    my $sec = pop @fields;
    push @seconds, join( '.', ( $sec, $frac ) );
}