sub second_to_string{ use warnings; use strict; use 5.010; my $seconds = shift; say "seconds are $seconds"; my $hours = $seconds % 3600; say "hours are $hours"; my $remainder = $seconds - $hours *3600; say "remainder is $remainder"; my $return = join('', $hours, 'h '); return $return; }