my $x = '@########@'; ##

##

    '',
    '####',
    '',


##

##

   '',
   '###@'

##

##

'@#######@'   

##

##

my @x = qw(## @ #); 

##

##

'####@#@@##'