for (sort {$foo{$a}[1] cmp $foo{$b}[1] or $a cmp $b} keys %foo) {
    print "$_ -> ['" . $foo{$_}[0] . "', '" . $foo{$_}[1] . "']\n";
}