use strict; use warnings; use 5.014; my $time = ; chomp $time; my $result; if ($time <= 49) { $result = $time / 1; } elsif ($time <= 99) { $result = $time / 2 * 1; } elsif ($time <= 199) { $result = $time / 3 * 2; } elsif ($time <= 299) { $result = $time / 4 * 3; } elsif ($time <= 500) { $result = $time / 5 * 4; } print "Time Points\n"; printf "%3f %3f\n", $time, $result;