use 5.010;
my $hour = (localtime)[2];
say $_ % 24 for $hour-1 .. $hour+2;