Select Code to Download

sub p09{
@_?reduce{$a->[-1][0]eq$b?push@{$a->[-1]},$b:push@{$a},[$b];$a;}[[shif
+t]],@_:()
}

use List::Util qw[ reduce ];
sub p09 { 
...
    } [[shift]], @_ 
    :()
}