#!/usr/bin/perl
use diagnostics;
my ($q,$w) = 1,2;