my $data = $_[0];

##</code><code>##

my ($data1, $data2) = @_;