一道关于停车计费的问题

程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为

输入的内容为一串字符串，每个不同的字符串代表一辆车.

纪录所有车每次进出的时间，计算时间、次数和价格.

价格依照价格表，阶梯定价：头10分钟5元，超过10分钟的每分钟5元

程序运行30分钟自动退出，程序退出前还没出库的车，收费200元

程序最后统计所有车辆的情况：次数，每次时间，总时间，总价

#!/usr/bin/perl  
use strict;  
use warnings;  
use Data::Dumper;  
use Time::Local;  
use POSIX qw{strftime};  
my (%hash,%count)=();  
my $start_time = time;  
sub p_money{  #计算费用  
    my $time = shift;  
   return 5 if $time <= 600;  
   if ($time>600 and $time<1800){  
    my $min;  
     $time%60==0?$min = ($time-600)/60:$min= int( ($time-600)/60 +1);  
        my $mon_minute = 5+$min*5;  
       return $mon_minute;  
   }  
}  
my (@arr,$end_time);  
while(1){  
    my ($start);  
   $end_time=time;  
print  "Car Number :";  
   eval{  
local $SIG{ALRM}=sub {die "timeout
";};  
  alarm(5);  
    chomp( $start = <>);        #此处设施中断  5秒内没有用户输入就继续循环，  
    push @{$hash{$start}},time;  
    $count{$start}++ if defined $start;  
    alarm(0);  
   };  
if ($end_time-$start_time>20){   #这里程序运行20秒，则退出循环，打印车辆的费用  
        for (sort keys %hash){  
my $stop_time = time()-$hash{$_}[0];  
        my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$_}[0]));  
        my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime(time));  
        push @arr,"$_	$car_start_time $car_stop_time $stop_time	200
";  
        }  
   print "
车号	开始时间	离开时间	停车时间	价格
";  
   print @arr;  
        exit;  
    }  
   if(defined $start  and  ($count{$start}||0) >1 ){  
        push @{$hash{$start}},time;  
        my $stop_time = $hash{$start}[-1]-$hash{$start}[0];  
        my $car_money = p_money $stop_time;  
        my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[0]));  
        my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[-1]));  
        push @arr, "$start	$car_start_time $car_stop_time $stop_time	$car_money
";  
        delete $count{$start}; #删除 出库车辆  
        delete $hash{$start};  
        redo;  #继续等待用户输入  
    }else{  
        redo;  
    }  
}