#!/usr/bin/perl

use strict;
use warnings;
use lib qw(.);
use data qw(:all);

print $variable2," ",$variable1,"\n";