sub is_fibonnacci {
    my $plus = (5 * $_[0] * $_[0]) + 4;
    my $mins = $plus - 8;
    return is_perfect_square($plus) || is_perfect_square($mins);
}