#!/usr/bin/perl -w

use strict;

my ( $str1, $str2, $c, $rs );

$str1 = 'hel';
$str2 = 'lo;

$c = &concat( $str1, $str2 );

print "$c\n";

sub concat
{
  my( $a, $b, $rs ) = @_;

  $rs = $a . $b;
 
  return $rs;
}