#!/usr/bin/perl -w use strict; print "-10--------20--------30--------40--------50--------60--------70--------80--------90";