Delta_Days ( "2013,06,06", "2013,06,10" ); #### my ( $firstdate, $seconddate ) = split ( /\t/ ); my @dates1 = split ( ",", $firstdate ); my @dates2 = split ( ",", $seconddate );