activeperl - Combine multiple statements into an expression in Perl? -

is possible combine multiple statements single expression? block wondering whether packaged expression.

that's do block's purpose.

for example,

my $file = {    open(my $fh, '<', $qfn) or die $!;    local $/;    <$fh> };