#!/usr/bin/perl my @list = qw( "a" , # comment "b" , # another comment ); print "val :$_:\n" foreach @list;