diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm
index 3bd6fa9..b5815b2 100644
--- a/lib/App/Model/Languages.pm
+++ b/lib/App/Model/Languages.pm
@@ -62,6 +62,7 @@ sub get_languages {
 }
 
 sub perl_sort_versions {
+  return $_[0] unless ref($_[0]);
   my @in = @{shift()};
   my @ranks = map {$langs{$_}{rank}} @in;
   my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in;