#!perl

use Data::Dumper;


print "this is a test\n"; 



my %HoH = (
        "toTime" => "1220",
        "fromTime" => "0930"      
         );



#print Dumper (\%HoH);


my $fromTime = $HoH{"fromTime"};
my $toTime   = $HoH{"toTime"};



print "$fromTime\n"; 
my ($fromTimeHr, $fromTimeMin, $toTimeHr, $toTimeMin);

if ($fromTime =~ /(\d{2})(\d{2})/) {
        print "FOMRTIME Hr = $1 / Min = $2\n";
        $fromTimeHr = $1;
        $fromTimeMin = $2;
}
if ($toTime =~ /(\d{2})(\d{2})/) {
        print "TOTIME Hr = $1 / Min = $2\n";
        $toTimeHr = $1;
        $toTimeMin = $2;
}


# Now convert Hrs to Mins and and all Mins
my $totalFromTime = ($fromTimeHr * 60) + $fromTimeMin;
my $totalToTime   = ($toTimeHr * 60) + $toTimeMin;

print "Total From Time Mins = $totalFromTime\n";
print "Total To Time Mins   = $totalToTime\n";