my $num    = shift;
my $groups = 5;
my $bits   = 6;
my $mask   = (1 << $bits) - 1;

my @out = map {
    ($num & $mask << $_ * $bits)
    >> $_ * $bits
} 0..$groups-1;