@decimals = map{$_/100 } 501 .. 512;; print "@decimals";; 5.01 5.02 5.03 5.04 5.05 5.06 5.07 5.08 5.09 5.1 5.11 5.12 @times = map{ sprintf "%02d:%02d", $_/60, $_%60 } 4*60+55 .. 5*60+05;; print "@times";; 04:55 04:56 04:57 04:58 04:59 05:00 05:01 05:02 05:03 05:04 05:05