#!/usr/bin/perl
use strict;
use warnings;

my %exampledata= (
	ATTTA  => 'TTTAA',
	ATGTA  => 'ATGTA',
	ATGATG => 'ATGATG',
);

while (my($s1, $s2)= each %exampledata) {
	print $s1,'+',$s2,' => ',merge_data($s1, $s2),"\n";
}