#!/usr/bin/perl use warnings; use strict; use Def; print "$sc @ar ", %ha;