String Perl

#!/usr/bin/perl
use warnings;
print "Ba". "na"x4 ,"\n";