##
use strict;
sub operate (&@) {
my $sub = shift;
local $~;
$~ = &$sub($_) for @_;
return $~
}
my @list = (4, 6, 2, 67, 123, 645, 23, 54 );
my $max = operate { $~ > $_ ? $~ : $_ } @list;
print $max, "\n";
my $string = operate { $~.$_ } @list;
print $string, "\n";
open FILE, $0;
my $count = operate { $~ + /operate/ } ;
print "Count = $count\n";
##
##
max = 645
string = 462671236452354
count = 4