#!/usr/bin/perl END { say for sort values %INC; }