map ,pl ggI#!/usr/bin/perluse strict;use warnings;