use asdf qw[ $a $s $d $f ] , 'the asdf', join ' ', qw[ the asdf ];