#!/usr/bin/perl use strict; print map { "$_->[1]\t=>$_->[0]\n" } map { [ split ] } ; __DATA__ 0 5713813 276k CVS_RES 264k Desktop 17k Documes 33k SEARCH