#!/usr/bin/perl

use strict;
use warnings;

my ( $ref_string1 ,$ref_string2 ) = @ARGV;

print "$ref_string1, $ref_string2\n";