%_ = map { my $z = (($_|=$^O)?$_:::($_)); $_, sub { while (pop) { my $x = unpack 'V',$_ ; push @| , ($x > $_ ? $x : $_ ) } print for @| } } 1..1024; ;