$ave = do { $ave += $_ for @array; $ave } / @array;

##</code><code>##

$ave += $_/@array for @array;

##</code><code>##

push @{ $_ < $ave ? \@lower : \@higher }, $_ for @array;