#!/usr/bin/perl

my $str1 = "bármi";
my $str2 = "akármi";
my $str3 = $str1.$str2;

print "$str3\n";