#!/usr/bin/perl
use strict;
use warnings;

my %x=(
=rem
  a=>1,
=cut
);


my @x=(
=rem
  1,
=cut
);

Number found where operator expected at ./test_rem.pl line 16, near "rem
  1"
	(Do you need to predeclare rem?)
syntax error at ./test_rem.pl line 8, near "(
="
syntax error at ./test_rem.pl line 15, near "(
="
Execution of ./test_rem.pl aborted due to compilation errors.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

sub head1($){shift}
sub cut(){'test'}

my $x=1;
my $y=1;
my @z=(
    $x
=head1 'test'

    ,$y
=cut
  );

print Dumper($x,$y,\@z);

$VAR1 = 'test';
$VAR2 = 'test';
$VAR3 = [
          'test',
          'test'
        ];

$VAR1 = 1;
$VAR2 = 1;
$VAR3 = [
          1
        ];

'test'
    ,$y

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

sub head1($){shift}
sub cut(){'test'}

my $x
=head1 'test';

my $y
=cut
;

print Dumper($x);