use strict; use warnings; my @lines = map {(substr ' ' x 15, 0, 15 - $_) . ('@' x (2 * $_)) . '@'} (0..4); print join "\n", @lines, ''; print ' ' x 10, '@' x 11, "\n"; print join "\n", reverse @lines;