#!/usr/bin/perl %x = 9*4; print %x