>perl -wMstrict -le "my $books = [ qw(a b c) ]; my @body = qw(x y); my $Author2 = 'defoe'; ;; push @body, qq{$Author2}; push @body, sprintf qq{$Author2}, scalar @$books; print qq{'$_'} for @body; " 'x' 'y' 'defoe' 'defoe'