#!/usr/bin/perl -wane use strict # study commands (input is .bash_history) $commands{shift(@F)}++; END { for (keys %commands) { print "$_ -> $commands{$_}\n" } }