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

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


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