use Date::Parse; my %sort_hash; my $line = "01/14/2014 23:44:12 "; my ( $datestr, $timestr, @rest_of_string ) = split ( /\s+/, $line ); my $unix_time = str2time ( $datestr . " " . $timestr ); print $unix_time,"\n"; $sort_hash{$unix_time} = join ( " ", @rest_of_string );