my ($a, $b) = 301 % 60 ;
# or
my ($a, $b) %= 301 / 60 ;