Hi bdawg613.

I hope this is what you meant:

#!/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;
}
[download]

You could also read the input ( $str1, $str2 ) from STDIN if you wanted to. There are much easier ways of writing this program though. If you need help, just ask.

Hope this helps,
-Katie.