#Max:
my $max = operate { $~ > $_ ? $~ : $_ } @list;
#Straight Concat:
my $string = operate { $~.$_ } @list; 
#Count occurences of words in a file:
my $count = operate { $~ + /the/ } <FILE>;