#!/usr/bin/perl -w

use strict;

my %data=(
	a => 1,
	b => 2,
);

print join(' ',%data);